Imports Microsoft.VisualBasic

Public Class Utils
    Public Shared Function ValidaIP(ByVal sIP As String) As Boolean
        Dim Retorno As Boolean

        Try
            Dim ip As System.Net.IPAddress = System.Net.IPAddress.Parse(sIP)
            Retorno = True
        Catch ex As Exception
            Retorno = False
        End Try

        Return Retorno
    End Function
End Class
